unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JvExControls, JvComponent, JvComCtrls, Mask, JvExMask,
  JvSpin, Buttons, JvExButtons, JvBitBtn, TunnelThrd;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    edName: TEdit;
    edListenPort: TJvSpinEdit;
    edDestinationHost: TJvIPAddress;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edDestinationPort: TJvSpinEdit;
    edPassword: TEdit;
    Label5: TLabel;
    JvBitBtn1: TJvBitBtn;
    JvBitBtn2: TJvBitBtn;
    edStart: TCheckBox;
  private
    { Private declarations }
  public
    procedure load(P: PTunnelItem);
    procedure save(P: PTunnelItem);
  end;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.load(P: PTunnelItem);
begin
  edName.Text := P.name;
  edListenPort.Text := P.lport;
  edDestinationHost.Text := P.dhost;
  edListenPort.Text := P.lport;
  edPassword.Text := P.password;
end;

procedure TForm2.save(P: PTunnelItem);
begin
  P.name := edName.Text;
  P.lport := edListenPort.Text;
  P.dhost := edDestinationHost.Text;
  P.lport := edListenPort.Text;
  P.password := edPassword.Text;
end;

end.
